home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aad.d64 / proc.convert3 < prev    next >
Text File  |  2007-02-28  |  317b  |  12 lines
  1. 9000 //
  2. 9010 ╨╥╧├ CONVERT(NUMBER,╥┼╞ BASE#,╥┼╞ RES$) ├╠╧╙┼─
  3. 9020   TEMP:=NUMBER ═╧─ BASE#
  4. 9030   NUMBER:=NUMBER ─╔╓ BASE#
  5. 9040   ╔╞ NUMBER>0 ╘╚┼╬ CONVERT(NUMBER,BASE#,RES$)
  6. 9050   ╔╞ TEMP<10 ╘╚┼╬
  7. 9060     RES$:+├╚╥$(TEMP+╧╥─("0"))
  8. 9070   ┼╠╙┼ 
  9. 9080     RES$:+├╚╥$(TEMP-10+╧╥─("┴"))
  10. 9090   ┼╬─╔╞ 
  11. 9100 ┼╬─╨╥╧├ CONVERT
  12.